МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ, МОЛОДІ ТА СПОРТУ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ «ЛЬВІВСЬКА ПОЛІТЕХНІКА»
ІКТА
кафедра БІ
З В І Т
до лабораторної роботи №3
з курсу: «Комп’ютерні методи дослідження інформаційних процесів і систем»
на тему: «Ітераційні методи розв’язування систем лінійних алгебраїчних рівнянь»
Варіант № 9
Львів – 2012р.
Мета роботи – ознайомлення з методами уточнення коренів нелінійних рівнянт з одним невідомим.
Завдання
Розв’язати систему лінійних алгебраїчних рівнянь класичним методом Гаусса.
, p=1; k=3.
Блок-схема алгоритму програми
/
Список ідентифікаторів констант, змінних, функцій,
використаних у блок-схемі алгоритму і програмі,
та їх пояснення
a,с – двовимірні масиви із елементами типу double;
x – одновимірний масив із значеннями коренів системи рівнянь;
i, j,L,n,K,m – змінні типу int з рівнем доступу public, що використовуються в коді програми;
Текст програми
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <conio.h>
int main ()
{
double a[4][5]; double x[4], x1[4], a1[4], a2[4];
int i,j,k,p;
double d,o,E,s,b,sn;
printf("vvedit znachennya pohubku E=");
scanf("%lf",&E);
printf("\n");
printf("vvedit znachennya p=");
scanf("%d",&p);
printf("\n");printf("vvedit znachennya k=");
scanf("%d",&k);
printf("\n");
s=0.2*k;
b=0.2*p;
a[0][0]=30.3;a[0][1]=12.62+s;a[0][2]=4.1;a[0][3]=1.9;a[0][4]=-10.55+b;
a[1][0]=3.92;a[1][1]=8.45;a[1][2]=-1.78+s;a[1][3]=1.4;a[1][4]=12.21;
a[2][0]=3.77;a[2][1]=1.21+s;a[2][2]=8.04;a[2][3]=0.28;a[2][4]=15.45-b;
a[3][0]=2.21;a[3][1]=3.65-s;a[3][2]=1.69;a[3][3]=9.99;a[3][4]=-8.35;
for(i=0;i<4;i++)
{
for(j=0;j<5;j++)
{
printf("%10.2lf ",a[i][j]);}
printf("\n");}
for(i=0;i<4;i++)
{
a1[i]=a[i][4]/a[i][i];
x[i]=a1[i];
a2[i]=a[i][i];
}
for(i=0;i<4;i++)
{
for(j=0;j<4;j++)
a[i][j]=a[i][j]/a2[i]*(-1);
a[i][i]=0;
}
d=1;
while(d<15)
{
for(i=0;i<4;i++)
x1[i]=x[i];
for(i=0;i<4;i++)
{
o=0;
for(j=0;j<4;j++)
o=o+(a[i][j]*x1[j]);
x[i]=a1[i]+o;
}
d=d+1;
}
for(i=0;i<4;i++)
{
printf("x[%d]=%lf",i+1,x1[i]);
printf("\n");
}
sn = 30.3*x[0] + (12.62+s)*x[1] + 4.1*x[2] + 1.9*x[3];
printf("sn=%lf",sn);
getch();
}
Результати роботи програми
/
